From 2b0f4ba538126e4ebcda851d5acac2b6fbf47c96 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Thu, 17 Jun 1993 00:16:29 +0000
Subject: [PATCH] * subr.el (event-basic-type): Deal with listy events
 properly.

---
 lisp/subr.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/subr.el b/lisp/subr.el
index 22662dd0687..ad96cc54ee3 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -285,6 +285,8 @@ The elements of the list may include `meta', `control',
 (defun event-basic-type (event)
   "Returns the basic type of the given event (all modifiers removed).
 The value is an ASCII printing character (not upper case) or a symbol."
+  (if (consp event)
+      (setq event (car event)))
   (if (symbolp event)
       (car (get event 'event-symbol-elements))
     (let ((base (logand event (1- (lsh 1 18)))))
-- 
2.30.2